﻿Public Class test2
    Private Sub btn_测试绘制轮廓_Click(sender As Object, e As EventArgs) Handles btn_测试绘制轮廓.Click
        Dim service As New CadDrawOutlineServiceImpl
        DataGridView1.DataSource = service.test2()
        DataGridView1.AutoResizeColumns()
    End Sub

    Private Sub btn_测试绘制孔位_Click(sender As Object, e As EventArgs) Handles btn_测试绘制孔位.Click
        Dim service As New CadDrawHole2ServiceImpl
        DataGridView1.DataSource = service.test2()
        DataGridView1.AutoResizeColumns()
    End Sub

    Private Sub btn_测试绘制平板_Click(sender As Object, e As EventArgs) Handles btn_测试绘制平板.Click
        Dim service As New CadDrawFlatServiceImpl
        service.test()

    End Sub

    Private Sub btn_测试绘制开槽_Click(sender As Object, e As EventArgs) Handles btn_测试绘制开槽.Click
        Dim service As New CadDrawSlotServiceImpl
        service.test2()
    End Sub
End Class